0 REM *** WERYFIKATOR    (M.G.) ***
1 ? CHR$(125):CLR :FOR I=1536 TO 1565:READ A:POKE I,A:NEXT I:TRAP 7:? "      *** WERYFIKACJA ***"
2 DIM L$(125):POKE 203,ADR(L$)-(INT(ADR(L$)/256)*256):POKE 204,INT(ADR(L$)/256)
3 CLOSE #1:? CHR$(29);"CLOAD czy ENTER  (C/E)";:INPUT L$:L=255:IF L$="E" THEN L=0
4 ? CHR$(29);"Prosze przygotowac tasme,":? "wcisnac PLAY i RETURN."
5 OPEN #1,4,L,"C:":FOR I=0 TO 100000:GET #1,B:X=USR(1536)
6 POKE 203,ADR(L$)-(INT(ADR(L$)/256)*256):POKE 204,INT(ADR(L$)/256):NEXT I
7 IF PEEK(195)=136 THEN CLOSE #1:? CHR$(29);"*** W porzadku ***":END 
8 ? CHR$(29);"*** BLAD nr - ";PEEK(195);" ***":END 
9 DATA 104,174,138,2,134,61,160,0,162,0,185,0,4,129,203,200,230,203,208,2,230,204,196,61,240,3,76,10,6,96
